www.gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\userAddSave.asp
<!--#include file = "include/sysbase.asp"--> <% dim IsModifyPwd, strPwd1, strPwd2, strAccount dim strSQL, cmdObj, rsObj IsModifyPwd = Request.Form("modifyPassword") strAccount = RealString(Request.Form("userID")) strPwd1 = RealString(Request.Form("password1")) strPwd2 = RealString(Request.Form("password2")) if strPwd1<>strPwd2 then Response.Write "密码、确认密码不同<br><a href = 'Javascript:window.history.go(-1)'>返回</a>" Response.End end if strSQL = "SELECT * FROM Admins WHERE Account = '"& strAccount &"'" 'Response.Write strSQL 'Response.End set rsObj = conn.execute (strSQL) if not rsObj.eof then Response.Write "该用户名已存在<br><a href = 'Javascript:window.history.go(-1)'>返回</a>" Response.End end if Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT * FROM Admins WHERE (name is null)" cmdObj.CommandType = adCmdText Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic rsObj.AddNew rsObj("Account") = strAccount rsObj("name") = Request.Form("name") rsObj("Pwd") = strPwd1 rsObj.Update rsObj.Close set rsObj = nothing CloseConn() %> <script language = Javascript> <!-- alert("添加成功!"); this.document.location = "userList.asp"; --> </script>